VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BReporteZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module    : BReporteZ
' DateTime  : 30/11/2011 12:03
' Author    :
' Purpose   : Clase Datos ReorteZ
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarbTipDocumento As BTipo
Private mvarnNumTickets As Integer
Private mvarnNumFacturas As Integer
Private mvarnBasImpTickets As Double
Private mvarnBasImpFacturas As Double
Private mvarnIgvTickets As Double
Private mvarnIgvFacturas As Double
Private mvarnSerTickets As Double
Private mvarnSerFacturas As Double
Private mvarntotTickets As Double
Private mvarnTotFacturas As Double
Private mvarnMinTicket As String
Private mvarnMaxTicket As String
Private mvarnMinFactura As String
Private mvarnMaxFactura As String
Private mvarnAnuTickets As Integer
Private mvarnAnuFacturas As Integer
Private mvarnTotAnuTickets As Double
Private mvarnTotAnuFacturas As Double
Private mvardMinFecRegistro As Date
Private mvardMaxFecRegistro As Date
Private mvarbCompania As bCompania
Private mvarnDiaTrabajo As Long
Private Sub Class_Initialize()
mvarnNumTickets = 0
mvarnNumFacturas = 0
mvarnMinTicket = "-"
mvarnMaxTicket = "-"
mvarnMinFactura = "-"
mvarnMaxFactura = "-"
mvardMinFecRegistro = Now
mvardMaxFecRegistro = Now
Set bTipDocumento = New BTipo
End Sub
Private Sub Class_Terminate()
    Set mvarbTipDocumento = Nothing
    Set mvarbCompania = Nothing
End Sub
Public Property Get bTipDocumento() As BTipo
    Set bTipDocumento = mvarbTipDocumento
End Property
Public Property Set bTipDocumento(bTipDocumento As BTipo)
    Set mvarbTipDocumento = bTipDocumento
End Property
Public Property Get nNumTickets() As Integer
    nNumTickets = mvarnNumTickets
End Property
Public Property Let nNumTickets(ByVal nNumTickets As Integer)
    mvarnNumTickets = nNumTickets
End Property
Public Property Get nNumFacturas() As Integer
    nNumFacturas = mvarnNumFacturas
End Property
Public Property Let nNumFacturas(ByVal nNumFacturas As Integer)
    mvarnNumFacturas = nNumFacturas
End Property

Public Property Get nBasImpTickets() As Double
    nBasImpTickets = mvarnBasImpTickets
End Property

Public Property Let nBasImpTickets(ByVal nBasImpTickets As Double)
    mvarnBasImpTickets = nBasImpTickets
End Property

Public Property Get nBasImpFacturas() As Double
    nBasImpFacturas = mvarnBasImpFacturas
End Property

Public Property Let nBasImpFacturas(ByVal nBasImpFacturas As Double)
    mvarnBasImpFacturas = nBasImpFacturas
End Property

Public Property Get nIgvTickets() As Double
    nIgvTickets = mvarnIgvTickets
End Property
Public Property Let nIgvTickets(ByVal nIgvTickets As Double)
    mvarnIgvTickets = nIgvTickets
End Property
Public Property Get nIgvFacturas() As Double
    nIgvFacturas = mvarnIgvFacturas
End Property
Public Property Let nIgvFacturas(ByVal nIgvFacturas As Double)
    mvarnIgvFacturas = nIgvFacturas
End Property
Public Property Get nSerTickets() As Double
    nSerTickets = mvarnSerTickets
End Property
Public Property Let nSerTickets(ByVal nSerTickets As Double)
    mvarnSerTickets = nSerTickets
End Property
Public Property Get nSerFacturas() As Double
    nSerFacturas = mvarnSerFacturas
End Property
Public Property Let nSerFacturas(ByVal nSerFacturas As Double)
    mvarnSerFacturas = nSerFacturas
End Property
Public Property Get ntotTickets() As Double
    ntotTickets = mvarntotTickets
End Property
Public Property Let ntotTickets(ByVal ntotTickets As Double)
    mvarntotTickets = ntotTickets
End Property
Public Property Get nTotFacturas() As Double
    nTotFacturas = mvarnTotFacturas
End Property
Public Property Let nTotFacturas(ByVal nTotFacturas As Double)
    mvarnTotFacturas = nTotFacturas
End Property
Public Property Get nMinTicket() As String
    nMinTicket = mvarnMinTicket
End Property
Public Property Let nMinTicket(ByVal nMinTicket As String)
    mvarnMinTicket = nMinTicket
End Property
Public Property Get nMaxTicket() As String
    nMaxTicket = mvarnMaxTicket
End Property
Public Property Let nMaxTicket(ByVal nMaxTicket As String)
    mvarnMaxTicket = nMaxTicket
End Property
Public Property Get nMinFactura() As String
    nMinFactura = mvarnMinFactura
End Property
Public Property Let nMinFactura(ByVal nMinFactura As String)
    mvarnMinFactura = nMinFactura
End Property
Public Property Get nMaxFactura() As String
    nMaxFactura = mvarnMaxFactura
End Property
Public Property Let nMaxFactura(ByVal nMaxFactura As String)
    mvarnMaxFactura = nMaxFactura
End Property
Public Property Get nAnuTickets() As Integer
    nAnuTickets = mvarnAnuTickets
End Property
Public Property Let nAnuTickets(ByVal nAnuTickets As Integer)
    mvarnAnuTickets = nAnuTickets
End Property
Public Property Get nAnuFacturas() As Integer
    nAnuFacturas = mvarnAnuFacturas
End Property
Public Property Let nAnuFacturas(ByVal nAnuFacturas As Integer)
    mvarnAnuFacturas = nAnuFacturas
End Property
Public Property Get nTotAnuTickets() As Double
    nTotAnuTickets = mvarnTotAnuTickets
End Property
Public Property Let nTotAnuTickets(ByVal nTotAnuTickets As Double)
    mvarnTotAnuTickets = nTotAnuTickets
End Property
Public Property Get nTotAnuFacturas() As Double
    nTotAnuFacturas = mvarnTotAnuFacturas
End Property
Public Property Let nTotAnuFacturas(ByVal nTotAnuFacturas As Double)
    mvarnTotAnuFacturas = nTotAnuFacturas
End Property
Public Property Get dMinFecRegistro() As Date
    dMinFecRegistro = mvardMinFecRegistro
End Property
Public Property Let dMinFecRegistro(ByVal dMinFecRegistro As Date)
    mvardMinFecRegistro = dMinFecRegistro
End Property
Public Property Get dMaxFecRegistro() As Date
    dMaxFecRegistro = mvardMaxFecRegistro
End Property
Public Property Let dMaxFecRegistro(ByVal dMaxFecRegistro As Date)
    mvardMaxFecRegistro = dMaxFecRegistro
End Property
Public Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property
Public Property Set bCompania(bCompania As bCompania)
    Set mvarbCompania = bCompania
End Property
Public Property Get nDiaTrabajo() As Long
    nDiaTrabajo = mvarnDiaTrabajo
End Property
Public Property Let nDiaTrabajo(ByVal nDiaTrabajo As Long)
    mvarnDiaTrabajo = nDiaTrabajo
End Property
